          SUBROUTINE (COST.TYPE)
** Version# 1.0001[4] - 09/26/2011 - 04:09pm - SMITJR - eclipse
*** V1.0001 Change - Custom Coding . - 09/26/2011 - SMITJR - eclipse
          F12         = NO
          QUIT        = NO
          COST.TYPE   = ''
          SAVE.OPTION = OPTION

          CHECK.KEY 'COGS.VIEW',COGS.OK
          CHECK.KEY 'COST.VIEW',COST.OK

          IDS = ''
          IF IDS='' THEN COST.TYPE=1; RETURN
          IDS<1,-1> = 'None'
          CT = DCOUNT(IDS,VM)
          MENU.TABLE VAR,,,1,CT,20,,,IDS,'Display Cost'

          BEGIN CASE
          CASE VAR='';         F12 = YES; QUIT = YES
          CASE VAR[1,1]='G';   COST.TYPE = 1
          CASE VAR[1,1]='C';   COST.TYPE = 2
          CASE OTHERWISE;      COST.TYPE = 3
          END CASE

          OPTION = SAVE.OPTION
          RETURN
!SMITJR~09/26/11~16:09
